Private Declare Function VB_SendForm Lib "vb_sendform2.dll" (ByVal szLogPath As String, ByVal SMTP As String, ByVal SMRPPort As Long, ByVal szTo As String, ByVal szCC As String, ByVal szName As String, ByVal szFrom As String, ByVal szSubject As String, ByVal szDescription As String, ByVal szAttach As String, ByVal bDeleteAttachFileAfterSend As Long) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub CmdSend_Click()
Dim g_sLogPath As String
Dim g_sSMTP As String
Dim g_nSMTPPort As Long
Dim g_sTo As String
Dim g_sCC As String
Dim g_sName As String
Dim g_sFrom As String
Dim g_sSubject As String
Dim g_sDescription As String
Dim g_sAttach As String
Dim nRet As Long
Dim szIni As String
Dim bDeleteAttachFileAfterSend As Long
Dim Msg, Style, Title, Help, Ctxt, Response, MyString